home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS217.dsk / READ-INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  902b  |  31 lines
  1. 10  REM  DISPLAY INSTRUCTIONS
  2. 20 D$ =  CHR$(4):F$ = "INSTRUCTIONS"
  3. 30  DIM LINES$(200)
  4. 40  HOME 
  5. 50  ONERR  GOTO 1000
  6. 52  PRINT 
  7. 55  VTAB 1: HTAB 1: INVERSE : PRINT  SPC( 13);"INSTRUCTIONS:";: PRINT  SPC( 14);
  8. 56  POKE 34,1
  9. 57  NORMAL 
  10. 65  PRINT 
  11. 68  PRINT D$;"BLOAD IN$.OBJ,A$300"
  12. 70  PRINT D$;"OPEN ";F$
  13. 75  PRINT D$;"READ ";F$
  14. 80  FOR I = 1 TO 200
  15. 90  IF ERR < >0  THEN I = 200: GOTO 200
  16. 110 ER = 0: IF ERR = 0  THEN  CALL 768,LINE$(I)
  17. 200  NEXT 
  18. 210  PRINT D$;"CLOSE"
  19. 220  FOR I = 1 TO 200
  20. 222  IF  LEFT$(LINE$(I),1) = ">"  THEN  VTAB 23: PRINT  SPC( 5);"PRESS SPACE BAR TO CONTINUE ";: GET A$: HOME 
  21. 225 LINE$(I) =  MID$ (LINE$(I),2,38)
  22. 230  IF  LEN(LINE$(I)) >0  THEN  PRINT LINE$(I)
  23. 900  NEXT 
  24. 995  POKE 34,0: PRINT 
  25. 996  PRINT  CHR$(4);"RUN E/ROOTS"
  26. 999  END 
  27. 1000 ERR =  PEEK(222)
  28. 1010  IF ER = 5  THEN  RESUME 
  29. 1020  PRINT "ERROR CODE: ";ERR
  30. 1030  END 
  31. 1035  PRINT  PEEK(218) +256 * PEEK(219)